MacWorld 1999 February/Macworld (1999-02).dmg/Games World/SharewareGames/Xconq 7.2.2/lib/ob-nor-alld.g

Text File | 1998-05-22 | 16KB | 606 lines

;;; The Allied Order-of-Battle for Normandy.

(game-module "ob-nor-alld"
  (default-base-module "ww2-bn")
  )

;; Coding is ccddrrrrb, country/division/regiment/battalion

; top-level codes
; 10,11 US inf/para
; 12 US armor
; 20,21 GB inf/para
; 22 GB armor
; 25 Can inf
; 26 Can armor
; 30 Fr
; 31 Po
; 32 Be
; 33 Dutch

(unit-defaults (s 1))

(hq-inf-div (sym u00100000) (n "1"))
(inf-mot (sym u00100161) (n "1/16"))
(inf-mot (sym u00100162) (n "2/16"))
(inf-mot (sym u00100163) (n "3/16"))
(inf-mot (sym u00100181) (n "1/18"))
(inf-mot (sym u00100182) (n "2/18"))
(inf-mot (sym u00100183) (n "3/18"))
(inf-mot (sym u00100261) (n "1/26"))
(inf-mot (sym u00100262) (n "2/26"))
(inf-mot (sym u00100263) (n "3/26"))
(arty-towed (sym u00100050) (n "5"))
(arty-towed (sym u00100070) (n "7"))
(arty-towed (sym u00100320) (n "32"))
(arty-towed (sym u00100330) (n "33"))

(hq-inf-div (sym u00200000) (n "2"))
(inf-mot (sym u00200091) (n "1/9"))
(inf-mot (sym u00200092) (n "2/9"))
(inf-mot (sym u00200093) (n "3/9"))
(inf-mot (sym u00200231) (n "1/23"))
(inf-mot (sym u00200232) (n "2/23"))
(inf-mot (sym u00200233) (n "3/23"))
(inf-mot (sym u00200381) (n "1/38"))
(inf-mot (sym u00200382) (n "2/38"))
(inf-mot (sym u00200383) (n "3/38"))
(arty-towed (sym u00200120) (n "12"))
(arty-towed (sym u00200150) (n "15"))
(arty-towed (sym u00200370) (n "37"))
(arty-towed (sym u00200380) (n "38"))

(hq-inf-div (sym u00400000))
(inf-mot (sym u00400081))
(inf-mot (sym u00400082))
(inf-mot (sym u00400083))
(inf-mot (sym u00400121))
(inf-mot (sym u00400122))
(inf-mot (sym u00400123))
(inf-mot (sym u00400221))
(inf-mot (sym u00400222))
(inf-mot (sym u00400223))
(arty-towed (sym u00400200) (n "20"))
(arty-towed (sym u00400290) (n "29"))
(arty-towed (sym u00400420) (n "42"))
(arty-towed (sym u00400440) (n "44"))

(hq-inf-div (sym u00500000))
(inf-mot (sym u00500021) (n "1/2"))
(inf-mot (sym u00500022) (n "2/2"))
(inf-mot (sym u00500023) (n "3/2"))
(inf-mot (sym u00500101) (n "1/10"))
(inf-mot (sym u00500102) (n "2/10"))
(inf-mot (sym u00500103) (n "3/10"))
(inf-mot (sym u00500111) (n "1/11"))
(inf-mot (sym u00500112) (n "2/11"))
(inf-mot (sym u00500113) (n "3/11"))
(arty-towed (sym u00500190))
(arty-towed (sym u00500210))
(arty-towed (sym u00500460))
(arty-towed (sym u00500500))

(hq-inf-div (sym u00800000))
(inf-mot (sym u00800131))
(inf-mot (sym u00800132))
(inf-mot (sym u00800133))
(inf-mot (sym u00800281))
(inf-mot (sym u00800282))
(inf-mot (sym u00800283))
(inf-mot (sym u00800341))
(inf-mot (sym u00800342))
(inf-mot (sym u00800343))
(arty-towed (sym u00800280))
(arty-towed (sym u00800430))
(arty-towed (sym u00800450))
(arty-towed (sym u00800560))

(hq-inf-div (sym u00900000))
(inf-mot (sym u00900391))
(inf-mot (sym u00900392))
(inf-mot (sym u00900393))
(inf-mot (sym u00900471))
(inf-mot (sym u00900472))
(inf-mot (sym u00900473))
(inf-mot (sym u00900601))
(inf-mot (sym u00900602))
(inf-mot (sym u00900603))
(arty-towed (sym u00900260))
(arty-towed (sym u00900340))
(arty-towed (sym u00900600))
(arty-towed (sym u00900840))

(hq-inf-div (sym u02800000))
(inf-mot (sym u02801091))
(inf-mot (sym u02801092))
(inf-mot (sym u02801093))
(inf-mot (sym u02801101))
(inf-mot (sym u02801102))
(inf-mot (sym u02801103))
(inf-mot (sym u02801121))
(inf-mot (sym u02801122))
(inf-mot (sym u02801123))
(arty-towed (sym u02801070))
(arty-towed (sym u02801080))
(arty-towed (sym u02801090))
(arty-towed (sym u02802290))

(hq-inf-div (sym u02900000))
(inf-mot (sym u02901151))
(inf-mot (sym u02901152))
(inf-mot (sym u02901153))
(inf-mot (sym u02901161))
(inf-mot (sym u02901162))
(inf-mot (sym u02901163))
(inf-mot (sym u02901751))
(inf-mot (sym u02901752))
(inf-mot (sym u02901753))
(cav-mech (sym u02900000))
(arty-towed (sym u02901100))
(arty-towed (sym u02901110))
(arty-towed (sym u02902240))
(arty-towed (sym u02902270))

(hq-inf-div (sym u03000000) (n "30"))
(inf-mot (sym u03001171) (n "1/117"))
(inf-mot (sym u03001172) (n "2/117"))
(inf-mot (sym u03001173) (n "3/117"))
(inf-mot (sym u03001191) (n "1/119"))
(inf-mot (sym u03001192) (n "2/119"))
(inf-mot (sym u03001193) (n "3/119"))
(inf-mot (sym u03001201) (n "1/120"))
(inf-mot (sym u03001202) (n "2/120"))
(inf-mot (sym u03001203) (n "3/120"))
(arty-towed (sym u03001130) (n "113"))
(arty-towed (sym u03001180) (n "118"))
(arty-towed (sym u03001970) (n "197"))
(arty-towed (sym u03002300) (n "230"))

(hq-inf-div (sym u03500000))
(inf-mot (sym u03501341))
(inf-mot (sym u03501342))
(inf-mot (sym u03501343))
(inf-mot (sym u03501371))
(inf-mot (sym u03501372))
(inf-mot (sym u03501373))
(inf-mot (sym u03503201))
(inf-mot (sym u03503202))
(inf-mot (sym u03503203))
(arty-towed (sym u03501270))
(arty-towed (sym u03501610))
(arty-towed (sym u03502160))
(arty-towed (sym u03502190))

(hq-inf-div (sym u07900000))
(inf-mot (sym u07903131))
(inf-mot (sym u07903132))
(inf-mot (sym u07903133))
(inf-mot (sym u07903141))
(inf-mot (sym u07903142))
(inf-mot (sym u07903143))
(inf-mot (sym u07903151))
(inf-mot (sym u07903152))
(inf-mot (sym u07903153))
(arty-towed (sym u07903100))
(arty-towed (sym u07903110))
(arty-towed (sym u07903120))
(arty-towed (sym u07909040))

(hq-inf-div (sym u08000000))
(inf-mot (sym u08003171))
(inf-mot (sym u08003172))
(inf-mot (sym u08003173))
(inf-mot (sym u08003181))
(inf-mot (sym u08003182))
(inf-mot (sym u08003183))
(inf-mot (sym u08003191))
(inf-mot (sym u08003192))
(inf-mot (sym u08003193))
(arty-towed (sym u08003130))
(arty-towed (sym u08003140))
(arty-towed (sym u08003150))
(arty-towed (sym u08009050))

(hq-para-div (sym u08200000))
(inf-para (sym u08203251))
(inf-para (sym u08203252))
(inf-para (sym u08203253))
(inf-para (sym u08205041))
(inf-para (sym u08205042))
(inf-para (sym u08205043))
(inf-para (sym u08205051))
(inf-para (sym u08205052))
(inf-para (sym u08205053))
;; 507th and 508th were attached for the D-Day drop.
(inf-para (sym u08205071))
(inf-para (sym u08205072))
(inf-para (sym u08205073))
(inf-para (sym u08205081))
(inf-para (sym u08205082))
(inf-para (sym u08205083))
(arty-towed (sym u08203190))
(arty-towed (sym u08203200))
(arty-towed (sym u08203760))
(arty-towed (sym u08204560))

(hq-inf-div (sym u08300000))
(inf-mot (sym u08303291))
(inf-mot (sym u08303292))
(inf-mot (sym u08303293))
(inf-mot (sym u08303301))
(inf-mot (sym u08303302))
(inf-mot (sym u08303303))
(inf-mot (sym u08303311))
(inf-mot (sym u08303312))
(inf-mot (sym u08303313))
(arty-towed (sym u08303220))
(arty-towed (sym u08303230))
(arty-towed (sym u08303240))
(arty-towed (sym u08309080))

(hq-inf-div (sym u09000000))
(inf-mot (sym u09003571))
(inf-mot (sym u09003572))
(inf-mot (sym u09003573))
(inf-mot (sym u09003581))
(inf-mot (sym u09003582))
(inf-mot (sym u09003583))
(inf-mot (sym u09003591))
(inf-mot (sym u09003592))
(inf-mot (sym u09003593))
(cav-mech (sym u09000000))
(arty-towed (sym u09003430))
(arty-towed (sym u09003440))
(arty-towed (sym u09003450))
(arty-towed (sym u09009150))

(hq-para-div (sym u10100000) (nb 101))
(inf-para (sym u10103271) (n "1/327"))
(inf-para (sym u10103272) (n "2/327"))
(inf-para (sym u10103273) (n "3/327"))
(inf-para (sym u10104011) (n "1/401"))
(inf-para (sym u10104012) (n "2/401"))
(inf-para (sym u10104013) (n "3/401"))
(inf-para (sym u10105011) (n "1/501"))
(inf-para (sym u10105012) (n "2/501"))
(inf-para (sym u10105013) (n "3/501"))
(inf-para (sym u10105021) (n "1/502"))
(inf-para (sym u10105022) (n "2/502"))
(inf-para (sym u10105023) (n "3/502"))
(inf-para (sym u10105061) (n "1/506"))
(inf-para (sym u10105062) (n "2/506"))
(inf-para (sym u10105063) (n "3/506"))
(arty-towed (sym u10103210) (nb 321))
(arty-towed (sym u10103770) (nb 377))
(arty-towed (sym u10104630) (nb 463))
(arty-towed (sym u10109070) (nb 907))

(hq-armor-div (sym ua0200000) (nb 2))
(inf-armored (sym ua0200411))
(inf-armored (sym ua0200412))
(inf-armored (sym ua0200413))
(arty-armored (sym ua0200140))
(arty-armored (sym ua0200780))
(arty-armored (sym ua0200920))
(tank (sym ua0200661))
(tank (sym ua0200662))
(tank (sym ua0200663))
(tank (sym ua0200671))
(tank (sym ua0200672))
(tank (sym ua0200673))

(hq-armor-div (sym ua0300000) (nb 3))
(inf-armored (sym ua0300361))
(inf-armored (sym ua0300362))
(inf-armored (sym ua0300363))
(arty-armored (sym ua0300540))
(arty-armored (sym ua0300670))
(arty-armored (sym ua0303910))
(tank (sym ua0300321))
(tank (sym ua0300322))
(tank (sym ua0300323))
(tank (sym ua0300331))
(tank (sym ua0300332))
(tank (sym ua0300333))

(hq-armor-div (sym ua0400000) (nb 4))
(inf-armored (sym ua0400100))
(inf-armored (sym ua0400510))
(inf-armored (sym ua0400530))
(arty-armored (sym ua0400220))
(arty-armored (sym ua0400660))
(arty-armored (sym ua0400940))
(tank (sym ua0400080))
(tank (sym ua0400350))
(tank (sym ua0400370))

(hq-armor-div (sym ua0500000) (nb 5))
(inf-armored (sym ua0500150))
(inf-armored (sym ua0500460))
(inf-armored (sym ua0500470))
(cav-mech (sym ua0500850))
(arty-armored (sym ua0500470))
(arty-armored (sym ua0500710))
(arty-armored (sym ua0500950))
(tank (sym ua0500100))
(tank (sym ua0500340))
(tank (sym ua0500810))

(hq-armor-div (sym ua0600000) (nb 6))
(inf-armored (sym ua0600090))
(inf-armored (sym ua0600440))
(inf-armored (sym ua0600500))
(arty-armored (sym ua0601280))
(arty-armored (sym ua0602120))
(arty-armored (sym ua0602310))
(tank (sym ua0600150))
(tank (sym ua0600680))
(tank (sym ua0600690))
(cav-mech (sym ua0600860))

(hq-armor-div (sym ua0700000) (nb 7))
(inf-armored (sym ua0700230) (nb 23))
(inf-armored (sym ua0700380) (nb 38))
(inf-armored (sym ua0700480) (nb 48))
(arty-armored (sym ua0704340) (nb 434))
(arty-armored (sym ua0704400) (nb 440))
(arty-armored (sym ua0704890) (nb 489))
(tank (sym ua0700170) (nb 17))
(tank (sym ua0700310) (nb 31))
(tank (sym ua0700400) (nb 40))

; Non-divisional units.

(inf-mot (sym u00000990) (nb 99))

(cav-mech (sym u00000280) (nb 28))

(arty-mortar (sym u00000810))

(arty-armored (sym u00000580) (nb 58))
(arty-armored (sym u00000620) (nb 62))
(arty-armored (sym u00000650) (nb 65))
(arty-armored (sym u00000830) (nb 83))
(arty-armored (sym u00000870) (nb 87))
(arty-armored (sym u00001740) (nb 174))
(arty-armored (sym u00002530) (nb 253))
(arty-armored (sym u00002580) (nb 258))
(arty-armored (sym u00002750) (nb 275))
(arty-armored (sym u00004000) (nb 400))
(arty-armored (sym u00005570) (nb 557))
(arty-armored (sym u00006950) (nb 695))
(arty-armored (sym u00006960) (nb 696))
(arty-armored (sym u00009870) (nb 987))
(arty-armored (sym u00009910) (nb 991))

(tank (sym u00000700))
(tank (sym u00007010))
(tank (sym u00007020))
(tank (sym u00007070))
(tank (sym u00007090))
(tank (sym u00007120))
(tank (sym u00007350))
(tank (sym u00007360))
(tank (sym u00007370))
(tank (sym u00007410))
(tank (sym u00007430))
(tank (sym u00007440))
(tank (sym u00007450))
(tank (sym u00007460))
(tank (sym u00007470))
(tank (sym u00007480))
(tank (sym u00007490))
(tank (sym u00007590))
(tank (sym u00007610))
(tank (sym u00007740))

(arty-sp-at (sym u00006020))
(arty-sp-at (sym u00006140))
(arty-sp-at (sym u00006280))
(arty-sp-at (sym u00006290))
(arty-sp-at (sym u00006340))
(arty-sp-at (sym u00006440))
(arty-sp-at (sym u00006540))
(arty-sp-at (sym u00007020))
(arty-sp-at (sym u00007030))
(arty-sp-at (sym u00007040))
(arty-sp-at (sym u00007730))
(arty-sp-at (sym u00007740))
(arty-sp-at (sym u00008030))
(arty-sp-at (sym u00008170))
(arty-sp-at (sym u00008180))
(arty-sp-at (sym u00008930))
(arty-sp-at (sym u00008990))

; British.

(hq-inf-div (sym gb0300000))
(inf-mot (sym gb0301slr) (n "1 SLR"))
(inf-mot (sym gb0302eyr) (n "2 EYR"))
(inf-mot (sym gb03002lr) (n "2 LR"))
(inf-mot (sym gb0302rwr) (n "2 RWR"))
(inf-mot (sym gb031konb) (n "1 KONB"))
(inf-mot (sym gb0301rnr) (n "1 RNR"))
(inf-mot (sym gb0302rur) (n "2 RUR"))
(inf-mot (sym gb03001sr) (n "1 SR"))
(inf-mot (sym gb032ksli) (n "2 KSLI"))
(arty-towed (sym gb0300070))
(arty-towed (sym gb0300330))
(arty-towed (sym gb0300760))

(hq-inf-div (sym gb0600000))

(hq-inf-div (sym gb1500000))
(inf-mot (sym gb1502ash) (n "2 ASH"))
(inf-mot (sym gb15002gh) (n "2 GH"))
(inf-mot (sym gb1500000) (n "2 GH"))
(inf-mot (sym gb1506rsf) (n "6 RSF"))
(inf-mot (sym gb157kosb) (n "7 KOSB"))
(inf-mot (sym gb15007sh) (n "7 SH"))
(inf-mot (sym gb1508rsf) (n "8 RSF"))
(inf-mot (sym gb150009c) (n "9 C"))
(inf-mot (sym gb1510hli) (n "10 HLI"))
(arty-towed (sym gb1501310))
(arty-towed (sym gb1501810))
(arty-towed (sym gb1501900))

(hq-inf-div (sym gb4300000))
(inf-mot (sym gb4300000) (n "4 SLI"))
(inf-mot (sym gb4300000) (n "7 SLI"))
(inf-mot (sym gb4300000) (n "1 WR"))
(inf-mot (sym gb4300000) (n "4 WR"))
(inf-mot (sym gb4300000) (n "5 WR"))
(inf-mot (sym gb4300000) (n "7 HR"))
(inf-mot (sym gb4300000) (n "4 DR"))
(inf-mot (sym gb4300000) (n "5 DR"))
(inf-mot (sym gb4300000) (n "5 DCLI"))
(arty-towed (sym gb4300940))
(arty-towed (sym gb4301120))
(arty-towed (sym gb4301790))

(hq-inf-div (sym gb4900000))
(inf-mot (sym i204900000a) (n "10 DLI"))
(inf-mot (sym i204900000b) (n "11 DLI"))
(inf-mot (sym i204900000c) (n "1 TS"))
(inf-mot (sym i204900000d) (n "4 LR"))
(inf-mot (sym i204900001) (n "1/4 KO"))
(inf-mot (sym i204900000e) (n "HYLR"))
(inf-mot (sym i204900000f) (n "11 RSF"))
(inf-mot (sym i204900000g) (n "6 DWR"))
(inf-mot (sym i204900000h) (n "7 DWR"))
(arty-towed (sym gb4900690))
(arty-towed (sym gb4901430))
(arty-towed (sym gb4901850))

(hq-inf-div (sym gb5000000))

(hq-inf-div (sym gb5100000))

(hq-inf-div (sym gb5300000))

(hq-inf-div (sym gb5900000))

(hq-armor-div (sym ga0100000) (n "Guards"))

(hq-armor-div (sym ga0700000))

(hq-armor-div (sym ga1100000))
(inf-mot (sym ga1100000))
(inf-mot (sym ga1100000))
(inf-mot (sym ga1100000))
(inf-mot (sym ga1100000))
(arty-towed (sym ga1101510))
(arty-armored (sym ga1100130))
(tank (sym ga1100000) (n "23 H"))
(tank (sym ga1100000) (n "FFY"))
(tank (sym ga1100000) (n "3 RTR"))
(tank (sym ga1100000) (n "2 NY"))
(tank (sym ga1100000) (n "1 N/33"))
(tank (sym ga1100000) (n "144/33"))
(tank (sym ga1100000) (n "148/33"))

(hq-armor-div (sym ga7900000) (n "specialized"))

; Nondivisional.

(arty-towed (sym gb0000010))
(arty-towed (sym gb0000070))
(arty-towed (sym gb0000090))
(arty-towed (sym gb0000100))
(arty-towed (sym gb0000110))
(arty-towed (sym gb0000130))
(arty-towed (sym gb0000150))
(arty-towed (sym gb0000250))
(arty-towed (sym gb0000510))
(arty-towed (sym gb0000520))
(arty-towed (sym gb0000530))
(arty-towed (sym gb0000590))
(arty-towed (sym gb0000610))
(arty-towed (sym gb0000630))
(arty-towed (sym gb0000640))
(arty-towed (sym gb0000650))
(arty-towed (sym gb0000670))
(arty-towed (sym gb0000720))
(arty-towed (sym gb0000770))
(arty-towed (sym gb0000790))
(arty-towed (sym gb0000840))
(arty-towed (sym gb0001070))
(arty-towed (sym gb0001210))
(arty-towed (sym gb0001460))

(arty-at (sym gb0000060))

(arty-armored (sym gb0000040) (n "4 RH"))

(tank (sym gb0001070) (n ""))
(tank (sym gb0001470) (n ""))
(tank (sym gb0001530) (n ""))

(tank (sym gb0000016) (n "GG/6"))
(tank (sym gb0000026) (n "CG/6"))
(tank (sym gb0000036) (n "SG/6"))

; Canadian.

(hq-inf-div (sym ca0200000))

(hq-inf-div (sym ca0300000))
(inf-mot (sym ca0300000) (n "RWR"))
(inf-mot (sym ca0300000) (n "RRR"))
(inf-mot (sym ca0300000) (n "QORC"))
(inf-mot (sym ca0300000) (n "NNR"))
(inf-mot (sym ca0300000) (n "CNR"))
(inf-mot (sym ca0300000) (n "LRC"))
(inf-mot (sym ca0300000) (n "HLIC"))
(inf-mot (sym ca0300000) (n "NDGH"))
(inf-mot (sym ca0300000) (n "NNSH"))

(hq-armor-div (sym ca0400000))

(arty-towed (sym ca0000030))
(arty-towed (sym ca0000040))
(arty-towed (sym ca0000070))

(tank (sym ca0000000) (n "6/2Can"))
(tank (sym ca0000000) (n "10/2Can"))
(tank (sym ca0000000) (n "27/2Can"))

; French.

(hq-armor-div (sym fr0200000))
(inf-armored (sym fr0200001))
(inf-armored (sym fr0200002))
(inf-armored (sym fr0200003))
(cav-mech (sym fr0200000a))
(arty-armored (sym fra0200001))
(arty-armored (sym fra0200002))
(arty-armored (sym fra0200003))
(tank (sym frt200001))
(tank (sym frt200002))
(tank (sym frt200003))

; Polish armored division.

(hq-armor-div (sym pla100000))
(tank (sym pla100010))
(tank (sym pla100020))
(tank (sym pla100240))
(tank (sym pla100100) (n "10 PMR"))
(inf-mot (sym pl0100010))
(inf-mot (sym pl0100080))
(inf-mot (sym pl0100090))
(inf-mot (sym pl0100100))
(arty-armored (sym pl0100010))
(inf-mg-co (sym pl0100000a))
(arty-towed (sym pl0100020))

; Belgian brigade.

(inf-mot (sym be0000001))
(inf-mot (sym be0000002))
(inf-mot (sym be0000003))

; Dutch brigade (actually just a battalion).

(inf-mot (sym nl0000001))